home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / STEP-2.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  550 b   |  26 lines
  1. ' STEP-2.BAS
  2. ' This program demonstrates the use of the STEP keyword in
  3. '   the LINE statement.
  4.  
  5. CLS
  6.  
  7. INPUT "Please enter a screen mode (0-13):  ", modeNum%
  8. SCREEN modeNum%
  9.  
  10. blank$ = SPACE$(39)
  11.  
  12. PRINT "Enter 0 and 0 to quit"
  13. PSET (150, 50)                ' establish a starting point
  14.  
  15. DO
  16.     LOCATE 22, 1
  17.     INPUT "Horizontal movement (+ or -): ", horiz%
  18.     INPUT "  Vertical movement (+ or -): ", vert%
  19.     LINE -STEP(horiz%, vert%)
  20.     LOCATE 22, 1
  21.     PRINT blank$
  22.     PRINT blank$
  23. LOOP UNTIL horiz% = 0 AND vert% = 0
  24.  
  25.  
  26.